home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / regreq.zip / REGREQ.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-20  |  5KB  |  291 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.     String   STRING019
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.     String   STRING023
  47.     String   STRING024
  48.     String   STRING025
  49.     String   STRING026
  50.     String   STRING027
  51.     String   STRING028
  52.     Declare  Function FUNCTION002(Integer INTEGER002) String
  53.  
  54. ;------------------------------------------------------------------------------
  55.  
  56.     Goto LABEL004
  57.     End
  58.     INTEGER001 = Abs(0 - 0)
  59.  
  60.     EndFunc
  61.  
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     Function FUNCTION002(Integer INTEGER002) String
  66.  
  67.     Boolean  BOOLEAN001
  68.     String   STRING002
  69.     String   STRING003
  70.  
  71.     BOOLEAN001 = 0
  72.     STRING002 = ""
  73.     :LABEL001
  74.     If (BOOLEAN001) Goto LABEL003
  75.     FGet INTEGER002, STRING002
  76.     If (Ferr(INTEGER002)) Then
  77.         BOOLEAN001 = 1
  78.     Else
  79.         If ((Trim(STRING002, " ") == "") || (Left(STRING002, 1) == ";")) Goto LABEL002
  80.         Goto LABEL003
  81.         :LABEL002
  82.         Goto LABEL001
  83.     Endif
  84.     :LABEL003
  85.     If (BOOLEAN001 == 1) STRING002 = ""
  86.     FUNCTION002 = STRING002
  87.  
  88.     EndFunc
  89.  
  90.     STRING004 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\PCBOARD.SYS"
  91.     STRING005 = ReadLine(PCBDat(), 27) + "PCBTEXT"
  92.     If (ReadLine(PCBDat(), 74) == 0) Then
  93.         STRING003 = STRING005
  94.     Else
  95.         INTEGER003 = FNext()
  96.         FOpen INTEGER003, STRING004, 0, 0
  97.         FSeek INTEGER003, 80, 0
  98.         FRead INTEGER003, STRING006, 4
  99.         FClose INTEGER003
  100.         STRING005 = Trim(STRING005 + STRING006, " ")
  101.         If (Right(STRING005, 1) == ".") STRING005 = Trim(STRING005, ".")
  102.         STRING003 = STRING005
  103.     Endif
  104.  
  105.     EndFunc
  106.  
  107.     STRING008 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\PCBOARD.SYS"
  108.     If (ReadLine(PCBDat(), 74) == 0) Then
  109.         STRING007 = ""
  110.     Else
  111.         INTEGER004 = FNext()
  112.         FOpen INTEGER004, STRING008, 0, 0
  113.         FSeek INTEGER004, 80, 0
  114.         FRead INTEGER004, STRING009, 4
  115.         FClose INTEGER004
  116.         STRING009 = Trim(STRING009, " ")
  117.         If (Left(STRING009, 1) == ".") STRING009 = ""
  118.         STRING007 = STRING009
  119.     Endif
  120.  
  121.     EndFunc
  122.  
  123.     :LABEL004
  124.     STRING010 = PPEPath() + PPEName() + ".CFG"
  125.     STRING016 = PPEPath() + "RRTMPMSG.$$$"
  126.     STRING018 = "SYSTEM DAEMON"
  127.     STRING021 = PPEName() + ": notice"
  128.     STRING014 = "D;" + STRING012
  129.     STRING015 = "Z"
  130.     FOpen INTEGER005, STRING010, 0, 0
  131.     If (Ferr(INTEGER005)) Then
  132.         Log 0, "Error opening " + STRING010
  133.         PrintLn "An Error Occured. Please try back another time...."
  134.     Else
  135.         STRING011 = FUNCTION002(INTEGER005)
  136.         STRING012 = FUNCTION002(INTEGER005)
  137.         STRING019 = FUNCTION002(INTEGER005)
  138.         If (STRING019 == "") STRING019 = "SYSOP"
  139.         STRING020 = FUNCTION002(INTEGER005)
  140.         If (STRING020 == "") STRING020 = "0"
  141.         STRING017 = Upper(FUNCTION002(INTEGER005))
  142.         If ((STRING017 <> "N") && (STRING017 <> "R")) STRING017 = "R"
  143.         FClose INTEGER005
  144.         Cls
  145.         DispFile STRING011, 1 + 4
  146.         Newline
  147.         STRING013 = "Y"
  148.         InputYN "Would you like to download the Access Request File", STRING013, 10
  149.         STRING013 = Upper(STRING013)
  150.         Newline
  151.         If (STRING013 == NoChar()) Goto LABEL005
  152.         InputStr "Please provide your Real Name", STRING022, 10, 45, Mask_Alpha(), 256 + 2
  153.         Newline
  154.         PrintLn "@X0BChoose a Transfer Protocol"
  155.         InputStr "(X)-modem, (Y)-Modem, or (Z)-modem", STRING015, 11, 1, "xzyXYZ", 256 + 2
  156.         STRING014 = STRING014 + ";" + STRING015
  157.         Command 0, STRING014
  158.         INTEGER005 = FNext()
  159.         FCreate INTEGER005, STRING016, 1, 3
  160.         FPutLn INTEGER005, STRING022
  161.         FPutLn INTEGER005, "has downloaded the Request Registration File."
  162.         FClose INTEGER005
  163.         Goto LABEL006
  164.         :LABEL005
  165.         STRING013 = "Y"
  166.         InputYN "Would you like to an application Mailed to you", STRING013, 10
  167.         STRING013 = Upper(STRING013)
  168.         Newline
  169.         If (STRING013 == NoChar()) Goto LABEL007
  170.         Cls
  171.         PrintLn "@X0APlease Provide the Following Information@X07"
  172.         Newlines 2
  173.         STRING013 = ""
  174.         PromptStr 259, STRING013, 25, Mask_Alpha(), 2 + 4 + 256
  175.         STRING022 = STRING013
  176.         STRING013 = ""
  177.         PromptStr 260, STRING013, 25, Mask_Alpha(), 2 + 4 + 256
  178.         STRING022 = STRING022 + STRING013
  179.         DispText 698, 64
  180.         PromptStr 699, STRING023, 50, Mask_Alpha(), 2 + 4 + 256
  181.         PromptStr 700, STRING024, 50, Mask_Alpha(), 2 + 4 + 256
  182.         PromptStr 701, STRING025, 25, Mask_Alpha(), 2 + 4 + 256
  183.         PromptStr 702, STRING026, 10, Mask_Alpha(), 2 + 4 + 256
  184.         PromptStr 703, STRING027, 10, Mask_Alpha(), 2 + 4 + 256
  185.         PromptStr 704, STRING028, 15, Mask_Alpha(), 2 + 4 + 256
  186.         INTEGER005 = FNext()
  187.         FCreate INTEGER005, STRING016, 1, 3
  188.         FPutLn INTEGER005, STRING022
  189.         FPutLn INTEGER005, "has requested you mail the Request Registration Form."
  190.         FPutLn INTEGER005, "The following address info was provided:"
  191.         FPutLn INTEGER005, ""
  192.         FPutLn INTEGER005, STRING022
  193.         FPutLn INTEGER005, STRING023
  194.         If (Trim(STRING024, " ") <> "") FPutLn INTEGER005, STRING024
  195.         FPutLn INTEGER005, Trim(STRING025, " ") + ", " + STRING026 + " " + STRING027
  196.         FPutLn INTEGER005, STRING028
  197.         FClose INTEGER005
  198.         :LABEL006
  199.         Newlines 2
  200.         PrintLn "@X0DSending Message to Sysop@X07"
  201.         Message S2I(STRING020, "10"), STRING019, STRING018, STRING021, STRING017, 0, 0, 0, STRING016
  202.         Cls
  203.         PrintLn "@X0AThank you..."
  204.         PrintLn "Now Logging off...@X07"
  205.     Endif
  206.     :LABEL007
  207.     Bye
  208.     End
  209.  
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Usage report (before postprocessing)
  213. ;
  214. ; ■ Statements used :
  215. ;
  216. ;    2       End
  217. ;    3       Cls
  218. ;    16      Goto 
  219. ;    44      Let 
  220. ;    6       PrintLn 
  221. ;    15      If 
  222. ;    1       DispFile 
  223. ;    2       FCreate 
  224. ;    3       FOpen 
  225. ;    5       FClose 
  226. ;    1       FGet 
  227. ;    11      FPutLn 
  228. ;    1       Log 
  229. ;    2       InputStr 
  230. ;    2       InputYN 
  231. ;    8       PromptStr 
  232. ;    4       Newline
  233. ;    2       Newlines 
  234. ;    1       DispText 
  235. ;    1       Bye
  236. ;    1       Message 
  237. ;    2       FSeek 
  238. ;    2       FRead 
  239. ;    4       EndFunc
  240. ;    1       Command 
  241. ;
  242. ;
  243. ; ■ Functions used :
  244. ;
  245. ;    38      +
  246. ;    1       -
  247. ;    11      ==
  248. ;    3       <>
  249. ;    5       !
  250. ;    1       &&
  251. ;    1       ||
  252. ;    3       Upper()
  253. ;    2       Left()
  254. ;    1       Right()
  255. ;    2       Ferr()
  256. ;    6       Trim()
  257. ;    2       NoChar()
  258. ;    9       Mask_Alpha()
  259. ;    3       PCBDat()
  260. ;    2       PPEPath()
  261. ;    3       ReadLine()
  262. ;    4       GetEnv()
  263. ;    1       S2I()
  264. ;    1       Abs()
  265. ;    2       PPEName()
  266. ;    4       FNext()
  267. ;
  268. ;------------------------------------------------------------------------------
  269. ;
  270. ; Analysis flags : d
  271. ;
  272. ; d - Access PCBOARD.DAT ■ 2
  273. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  274. ;     for many PPE so they can find various informations on the system
  275. ;     (system paths, max number of lines in messages, ...) but it may also
  276. ;     be a way to gather vital informations.
  277. ;     ■ Search for : PCBDAT()
  278. ;
  279. ;------------------------------------------------------------------------------
  280. ;
  281. ; Postprocessing report
  282. ;
  283. ;    0       For/Next
  284. ;    0       While/EndWhile
  285. ;    4       If/Then or If/Then/Else
  286. ;    0       Select Case
  287. ;
  288. ;------------------------------------------------------------------------------
  289. ;                 AEGiS Corp - Break the routines, code against the machines!
  290. ;------------------------------------------------------------------------------
  291.